Dr. Windows 3/dr win3.zip/dr win3/WINWORDS/WINE02BX.ZIP/LISP/MODES/C-STYLE.ELC

Text File | 1993-03-28 | 3KB | 26 lines

;;; compiled by @win386 on Sat Mar 13 14:30:33 1993
;;; from file c:/src/lucid-19.4/lisp/modes/c-style.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.

(if (and (boundp 'emacs-version)
     (or (and (boundp 'epoch::version) epoch::version)
         (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs19."))

(defvar default-c-style 'GNU "\
*The default value of c-style.  Set this in your .emacs.")
(byte-code "└┴!¼é┬└ç" [boundp c-style-alist ((GNU (c-indent-level 2) (c-continued-statement-offset 2) (c-brace-offset 0) (c-argdecl-indent 5) (c-label-offset -2)) (BSD (c-indent-level 8) (c-continued-statement-offset 8) (c-brace-offset -8) (c-argdecl-indent 8) (c-label-offset -8)) (K&R (c-indent-level 5) (c-continued-statement-offset 5) (c-brace-offset -5) (c-argdecl-indent 0) (c-label-offset -5)) (BS (c-indent-level 4) (c-continued-statement-offset 4) (c-brace-offset -4) (c-argdecl-indent 4) (c-label-offset -4)) (LRS (c-indent-level 4) (c-continued-statement-offset 4) (c-brace-offset 0) (c-argdecl-indent 4) (c-label-offset -2) (c-auto-newline nil)) (Plauger (c-indent-level 0) (c-continued-statement-offset 8) (c-continued-brace-offset -8) (c-brace-offset 8) (c-brace-imaginary-offset 0) (c-argdecl-indent 0) (c-label-offset -8) (c-auto-newline t) (c-tab-always-indent t)) (Alman (c-argdecl-indent 0) (c-brace-imaginary-offset 2) (c-brace-offset 0) (c-continued-statement-offset 2) (c-indent-level 0) (c-label-offset -2) (c-auto-newline t) (comment-column 40) (tab-width 2) (fill-column '79)) (Gould (c-indent-level 4) (c-continued-statement-offset 4) (c-brace-offset -4) (c-argdecl-indent 8) (c-label-offset -2) (c-brace-imaginary-offset 0)) (WRS (c-indent-level 0) (c-continued-statement-offset 4) (c-brace-offset 0) (c-argdecl-indent 4) (c-label-offset -2) (c-brace-imaginary-offset 4) (c-continued-brace-offset -4)))] 2)
(defvar c-style nil "\
The buffer local c-mode indentation style.")
(defvar c-style-name nil "\
The style name for a c-mode indentation style.
This is to be set by set-c-style, and used by the mode line.")
(byte-code "└    ₧¼ä    ┬ñê└ç" [c-style-name minor-mode-alist ((c-style-name c-style-name))] 2)
(fset 'set-c-style #[(&optional style) "└┴\n\"t½¥─┼╞\"╚!╔#ë\n╦ÿ½ä¬ä╠\n!)«é╬╧!ê>½å¬å╨╤\"ê╥╙\"ê╬╘!ê┼╒\"└╓\n₧A\"ê)ç" [mapcar car c-style-alist c-styles completing-read format "Set c-mode indentation style to (default %s): " default-c-style vconcat #[(arg) "    >ç" [arg c-styles] 2] style-string "" intern style make-local-variable c-style error "Undefined c style: %s" message "c-style: %s" c-style-name " %s" #[(c-style-pair) "└    @!ê    @    A@Lç" [make-local-variable c-style-pair] 2]] 5 "\
Set up the c-mode style variables from STYLE if it is given, or
default-c-style otherwise.  It makes the c indentation style variables
buffer local." nil])